home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / e / e_modules02.lha / e_modules02 / mempools / testpools.e < prev    next >
Encoding:
Text File  |  1996-07-31  |  657 b   |  28 lines
  1. OPT OSVERSION=34
  2. OPT PREPROCESS
  3.  
  4. MODULE 'tools/mempools','exec/memory'
  5. #define PROGRAMVERSION 'memPOOLStest v1.1 (20.04.96)'
  6.  
  7. CONST PUDDLESIZE = 10240
  8. CONST TRESHSIZE  = PUDDLESIZE
  9.  
  10. PROC main() HANDLE
  11.   DEF pool:PTR TO pool,mem
  12.  
  13.   IF (pool:=libCreatePool(MEMF_ANY,PUDDLESIZE,TRESHSIZE))=NIL THEN RETURN
  14.   mem:=libAllocVecPooled(pool,100)
  15.   WriteF(IF mem THEN 'ALLOCATED!\n' ELSE 'ERROR!\n')
  16.  
  17. ->  if you have OS39 then run PoolWatch,Sushi and try this
  18. ->  mem[-10]:=$11; mem[-12]:=$11
  19. ->  mem[110]:=$11; mem[112]:=$11
  20. ->  mem[-4]:=0
  21. EXCEPT DO
  22.   libFreeVecPooled(pool,mem)
  23.   libDeletePool(pool)
  24.   WriteF('DISPOSED!\n')
  25. ENDPROC
  26.  
  27. CHAR '$VER: ',PROGRAMVERSION,0
  28.